home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / icon / moveicon.zip / MOVEICON.FRM < prev    next >
Text File  |  1993-01-27  |  1KB  |  55 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "Moving Icon"
  5.    Height          =   4425
  6.    Icon            =   MOVEICON.FRX:0000
  7.    Left            =   1035
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4020
  10.    ScaleWidth      =   7365
  11.    Top             =   1140
  12.    Width           =   7485
  13.    Begin Timer Timer1 
  14.       Interval        =   100
  15.       Left            =   3120
  16.       Top             =   1800
  17.    End
  18. End
  19.  
  20. Sub Form_Click ()
  21.    End
  22. End Sub
  23.  
  24. Sub Form_KeyPress (KeyAscii As Integer)
  25.    If KeyAscii = 27 Then Form_Click
  26. End Sub
  27.  
  28. Sub Form_Resize ()
  29.    Cls
  30. End Sub
  31.  
  32. Sub Timer1_Timer ()
  33.    Static clr
  34.    If Form1.WindowState <> 1 Then
  35.       x1 = Int(Rnd(1) * Form1.Width) + 1
  36.       x2 = Form1.Width - x1
  37.       y1 = Int(Rnd(1) * Form1.Height) + 1
  38.       y2 = Form1.Height - y1
  39.       DrawWidth = 2
  40.    Else
  41.       Do
  42.          x1 = Int(Rnd(1) * Form1.Width) + 1
  43.       Loop Until x1 > 100 And x1 < (Form1.Width - 125)
  44.       x2 = Form1.Width - x1
  45.       Do
  46.          y1 = Int(Rnd(1) * Form1.Height \ 2) + 1
  47.          y2 = Form1.Height \ 2 - y1 + 180
  48.       Loop Until y1 > 100 And y1 < (Form1.Height \ 2) And y2 > 100
  49.       DrawWidth = 1
  50.    End If
  51.    Line (x1, y1)-(x2, y2), QBColor(clr)
  52.    clr = (clr + 1) Mod 16
  53. End Sub
  54.  
  55.